﻿Imports VN.INS.DL.DALC
Imports VN.INS.BL.BE
Public Class MantenimientoUnidadBC
    Public Function ListaUnidad(ByVal strNombre As String) As DataTable
        Dim objLUDA As MantenimientoUnidadDA
        Dim objDt As DataTable

        Try
            objLUDA = New MantenimientoUnidadDA
            objDt = objLUDA.ListaUnidad(strNombre)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    Public Sub insertarunidad(ByVal unid As String, ByVal descr As String)
        Dim objIUDA As MantenimientoUnidadDA

        Try
            objIUDA = New MantenimientoUnidadDA
            objIUDA.InsertarUnidad(unid, descr)
        Catch ex As Exception
            Throw ex
        End Try

    End Sub
    Public Sub editarunidad(ByVal unid As String, ByVal descr As String)
        Dim objEUDA As MantenimientoUnidadDA

        Try
            objEUDA = New MantenimientoUnidadDA
            objEUDA.editarunidad(unid, descr)
        Catch ex As Exception
            Throw ex
        End Try
    End Sub
    Public Sub eliminarunidad(ByVal unid As String)
        Dim objELUDA As MantenimientoUnidadDA

        Try
            objELUDA = New MantenimientoUnidadDA
            objELUDA.eliminarunidad(unid)
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

    Public Function Contarunidad(ByVal UNIDAD As String) As DataTable
        Dim objCUDA As MantenimientoUnidadDA
        Dim objDt As DataTable
        Try
            objCUDA = New MantenimientoUnidadDA
            objDt = objCUDA.Contarunidad(UNIDAD)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function
End Class
